/ BCI NET / BCI NET Dec 94.iso / archives / programming / blitzbasic / blitz-progs.lha / uuscape.lha / scape.bb2

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 20 20 6c 61 | 6e 64 73 63 61 70 65 00 |;.;   la|ndscape.|
|00000010| 3b 00 80 c3 00 80 34 00 | 3b 00 b6 01 20 80 c5 00 |;.....4.|;... ...|
|00000020| 3b 00 80 04 20 6d 61 70 | 2e 77 20 28 32 35 35 2c |;... map|.w (255,|
|00000030| 32 35 35 29 00 00 80 01 | 20 2e 74 72 69 00 20 20 |255)....| .tri.  |
|00000040| 20 20 20 20 20 20 78 30 | 2e 77 00 20 20 20 20 20 |      x0|.w.     |
|00000050| 20 20 20 79 30 2e 77 00 | 20 20 20 20 20 20 20 20 |   y0.w.|        |
|00000060| 78 31 2e 77 00 20 20 20 | 20 20 20 20 20 79 31 2e |x1.w.   |     y1.|
|00000070| 77 00 20 20 20 20 20 20 | 20 20 78 32 2e 77 00 20 |w.      |  x2.w. |
|00000080| 20 20 20 20 20 20 20 79 | 32 2e 77 00 80 02 20 80 |       y|2.w... .|
|00000090| 01 00 00 80 33 2e 77 20 | 78 2c 79 2c 70 6c 6f 74 |....3.w |x,y,plot|
|000000a0| 63 6f 6c 2c 69 74 77 69 | 64 74 68 2c 74 65 6d 70 |col,itwi|dth,temp|
|000000b0| 2c 74 65 6d 70 31 2c 74 | 65 6d 70 32 2c 74 65 6d |,temp1,t|emp2,tem|
|000000c0| 70 33 2c 74 65 6d 70 34 | 2c 72 61 6e 64 00 80 33 |p3,temp4|,rand..3|
|000000d0| 2e 77 20 74 65 6d 70 78 | 31 2c 74 65 6d 70 79 31 |.w tempx|1,tempy1|
|000000e0| 2c 74 65 6d 70 78 32 2c | 74 65 6d 70 79 32 2c 74 |,tempx2,|tempy2,t|
|000000f0| 65 6d 70 78 33 2c 74 65 | 6d 70 79 33 2c 74 65 6d |empx3,te|mpy3,tem|
|00000100| 70 78 34 2c 74 65 6d 70 | 79 34 00 00 69 74 77 69 |px4,temp|y4..itwi|
|00000110| 64 74 68 20 3d 20 32 35 | 36 00 74 65 6d 70 20 3d |dth = 25|6.temp =|
|00000120| 20 30 00 72 61 6e 64 20 | 3d 20 30 00 73 65 65 64 | 0.rand |= 0.seed|
|00000130| 31 2e 6c 20 3d 20 24 30 | 30 30 30 31 36 33 37 00 |1.l = $0|0001637.|
|00000140| 00 3b 00 d0 01 20 30 2c | 33 32 30 2c 32 35 36 2c |.;... 0,|320,256,|
|00000150| 35 00 3b 00 c8 01 20 30 | 2c 34 31 2c 33 32 30 2c |5.;... 0|,41,320,|
|00000160| 32 35 36 2c 24 66 66 66 | 38 2c 35 2c 38 2c 33 32 |256,$fff|8,5,8,32|
|00000170| 2c 33 32 30 2c 33 32 30 | 00 00 c8 04 20 30 00 00 |,320,320|.... 0..|
|00000180| ce 0a 20 30 2c 30 2c 30 | 2c 30 2c 30 00 ce 0a 20 |.. 0,0,0|,0,0... |
|00000190| 30 2c 31 2c 33 2c 33 2c | 39 00 ce 0a 20 30 2c 32 |0,1,3,3,|9... 0,2|
|000001a0| 2c 31 33 2c 31 31 2c 30 | 00 ce 0a 20 30 2c 33 2c |,13,11,0|... 0,3,|
|000001b0| 31 30 2c 31 32 2c 30 00 | ce 0a 20 30 2c 34 2c 36 |10,12,0.|.. 0,4,6|
|000001c0| 2c 31 30 2c 30 00 ce 0a | 20 30 2c 35 2c 33 2c 39 |,10,0...| 0,5,3,9|
|000001d0| 2c 30 00 ce 0a 20 30 2c | 36 2c 30 2c 38 2c 30 00 |,0... 0,|6,0,8,0.|
|000001e0| ce 0a 20 30 2c 37 2c 31 | 2c 38 2c 30 00 ce 0a 20 |.. 0,7,1|,8,0... |
|000001f0| 30 2c 38 2c 32 2c 38 2c | 30 00 ce 0a 20 30 2c 39 |0,8,2,8,|0... 0,9|
|00000200| 2c 33 2c 38 2c 30 00 ce | 0a 20 30 2c 31 30 2c 34 |,3,8,0..|. 0,10,4|
|00000210| 2c 38 2c 30 00 ce 0a 20 | 30 2c 31 31 2c 35 2c 38 |,8,0... |0,11,5,8|
|00000220| 2c 30 00 ce 0a 20 30 2c | 31 32 2c 36 2c 38 2c 31 |,0... 0,|12,6,8,1|
|00000230| 00 ce 0a 20 30 2c 31 33 | 2c 37 2c 37 2c 31 00 ce |... 0,13|,7,7,1..|
|00000240| 0a 20 30 2c 31 34 2c 37 | 2c 36 2c 31 00 ce 0a 20 |. 0,14,7|,6,1... |
|00000250| 30 2c 31 35 2c 37 2c 35 | 2c 31 00 ce 0a 20 30 2c |0,15,7,5|,1... 0,|
|00000260| 31 36 2c 37 2c 34 2c 31 | 00 ce 0a 20 30 2c 31 37 |16,7,4,1|... 0,17|
|00000270| 2c 37 2c 33 2c 31 00 ce | 0a 20 30 2c 31 38 2c 37 |,7,3,1..|. 0,18,7|
|00000280| 2c 33 2c 32 00 ce 0a 20 | 30 2c 31 39 2c 36 2c 34 |,3,2... |0,19,6,4|
|00000290| 2c 32 00 ce 0a 20 30 2c | 32 30 2c 36 2c 34 2c 33 |,2... 0,|20,6,4,3|
|000002a0| 00 ce 0a 20 30 2c 32 31 | 2c 36 2c 34 2c 34 00 ce |... 0,21|,6,4,4..|
|000002b0| 0a 20 30 2c 32 32 2c 35 | 2c 35 2c 34 00 ce 0a 20 |. 0,22,5|,5,4... |
|000002c0| 30 2c 32 33 2c 35 2c 35 | 2c 35 00 ce 0a 20 30 2c |0,23,5,5|,5... 0,|
|000002d0| 32 34 2c 36 2c 36 2c 36 | 00 ce 0a 20 30 2c 32 35 |24,6,6,6|... 0,25|
|000002e0| 2c 37 2c 37 2c 37 00 ce | 0a 20 30 2c 32 36 2c 38 |,7,7,7..|. 0,26,8|
|000002f0| 2c 38 2c 38 00 ce 0a 20 | 30 2c 32 37 2c 39 2c 39 |,8,8... |0,27,9,9|
|00000300| 2c 39 00 ce 0a 20 30 2c | 32 38 2c 31 30 2c 31 30 |,9... 0,|28,10,10|
|00000310| 2c 31 30 00 ce 0a 20 30 | 2c 32 39 2c 31 31 2c 31 |,10... 0|,29,11,1|
|00000320| 31 2c 31 31 00 ce 0a 20 | 30 2c 33 30 2c 31 33 2c |1,11... |0,30,13,|
|00000330| 31 33 2c 31 33 00 ce 0a | 20 30 2c 33 31 2c 31 35 |13,13...| 0,31,15|
|00000340| 2c 31 35 2c 31 35 00 00 | 80 2c 20 ce 09 20 30 00 |,15,15..|., .. 0.|
|00000350| 00 80 16 20 64 72 61 77 | 20 3d 20 30 20 80 18 20 |... draw| = 0 .. |
|00000360| 37 00 20 20 80 06 20 6d | 61 6b 65 73 63 61 70 65 |7.  .. m|akescape|
|00000370| 00 20 20 69 74 77 69 64 | 74 68 3d 69 74 77 69 64 |.  itwid|th=itwid|
|00000380| 74 68 2f 32 00 20 20 bb | 84 20 33 30 30 2c 28 64 |th/2.  .|. 300,(d|
|00000390| 72 61 77 2d 31 29 2a 32 | 30 2c 33 32 30 2c 31 30 |raw-1)*2|0,320,10|
|000003a0| 2b 28 28 64 72 61 77 2d | 31 29 2a 32 30 29 2c 64 |+((draw-|1)*20),d|
|000003b0| 72 61 77 00 80 17 20 64 | 72 61 77 00 00 80 16 20 |raw... d|raw.... |
|000003c0| 78 20 3d 20 30 20 80 18 | 20 32 35 35 20 80 19 20 |x = 0 ..| 255 .. |
|000003d0| 69 74 77 69 64 74 68 00 | 20 20 80 16 20 79 20 3d |itwidth.|  .. y =|
|000003e0| 20 30 20 80 18 20 32 35 | 35 20 80 19 20 69 74 77 | 0 .. 25|5 .. itw|
|000003f0| 69 64 74 68 00 20 20 20 | 20 74 65 6d 70 3d 6d 61 |idth.   | temp=ma|
|00000400| 70 28 78 2c 79 29 2b 6d | 61 70 28 78 2c 28 79 2b |p(x,y)+m|ap(x,(y+|
|00000410| 69 74 77 69 64 74 68 29 | 20 80 42 20 32 35 35 29 |itwidth)| .B 255)|
|00000420| 2b 6d 61 70 28 28 78 2b | 69 74 77 69 64 74 68 29 |+map((x+|itwidth)|
|00000430| 20 80 42 20 32 35 35 2c | 79 29 2b 6d 61 70 28 28 | .B 255,|y)+map((|
|00000440| 78 2b 69 74 77 69 64 74 | 68 29 20 80 42 20 32 35 |x+itwidt|h) .B 25|
|00000450| 35 2c 28 79 2b 77 69 64 | 74 68 29 20 80 42 20 32 |5,(y+wid|th) .B 2|
|00000460| 35 35 29 00 20 20 20 20 | 80 0b 20 74 65 6d 70 3c |55).    |.. temp<|
|00000470| 30 00 20 20 20 20 20 20 | 20 20 74 65 6d 70 3d 31 |0.      |  temp=1|
|00000480| 00 20 20 20 20 80 22 00 | 20 20 20 20 20 20 74 65 |.    .".|      te|
|00000490| 6d 70 3d 28 74 65 6d 70 | 2f 31 32 38 29 2b 32 00 |mp=(temp|/128)+2.|
|000004a0| 20 20 20 20 80 c0 00 20 | 20 20 20 80 0b 20 74 65 |    ... |   .. te|
|000004b0| 6d 70 3e 33 31 20 80 21 | 20 74 65 6d 70 20 3d 20 |mp>31 .!| temp = |
|000004c0| 33 31 00 20 20 20 20 b2 | 03 20 78 2c 79 2c 74 65 |31.    .|. x,y,te|
|000004d0| 6d 70 00 20 20 80 17 20 | 79 00 80 17 20 78 00 00 |mp.  .. |y... x..|
|000004e0| 80 0c 20 df 04 28 30 29 | 3d 30 00 20 20 80 37 00 |.. ..(0)|=0.  .7.|
|000004f0| 80 c1 00 00 3b 69 74 77 | 69 64 74 68 3d 32 35 36 |....;itw|idth=256|
|00000500| 00 69 74 77 69 64 74 68 | 3d 32 00 b2 05 00 3b 46 |.itwidth|=2....;F|
|00000510| 6f 72 20 64 72 61 77 20 | 3d 20 30 20 54 6f 20 37 |or draw |= 0 To 7|
|00000520| 00 3b 20 20 69 74 77 69 | 64 74 68 3d 69 74 77 69 |.;  itwi|dth=itwi|
|00000530| 64 74 68 2f 32 00 3b 20 | 20 42 6f 78 66 20 30 2c |dth/2.; | Boxf 0,|
|00000540| 33 30 2c 33 31 39 2c 36 | 35 2c 30 00 20 20 80 06 |30,319,6|5,0.  ..|
|00000550| 20 70 6c 6f 74 73 63 61 | 70 65 00 3b 4e 65 78 74 | plotsca|pe.;Next|
|00000560| 20 64 72 61 77 00 00 80 | 0c 20 df 04 28 30 29 3d | draw...|. ..(0)=|
|00000570| 30 00 20 20 80 37 00 80 | c1 00 80 02 00 00 00 2e |0.  .7..|........|
|00000580| 6d 61 6b 65 73 63 61 70 | 65 00 20 20 80 16 20 78 |makescap|e.  .. x|
|00000590| 20 3d 20 30 20 80 18 20 | 32 35 35 20 80 19 20 69 | = 0 .. |255 .. i|
|000005a0| 74 77 69 64 74 68 00 20 | 20 20 20 b2 03 20 32 37 |twidth. |   .. 27|
|000005b0| 35 2c 78 2c 28 64 72 61 | 77 2a 32 29 2b 32 00 20 |5,x,(dra|w*2)+2. |
|000005c0| 20 20 20 80 16 20 79 20 | 3d 20 30 20 80 18 20 32 |   .. y |= 0 .. 2|
|000005d0| 35 35 20 80 19 20 69 74 | 77 69 64 74 68 00 20 20 |55 .. it|width.  |
|000005e0| 20 20 20 20 74 65 6d 70 | 31 3d 6d 61 70 28 28 78 |    temp|1=map((x|
|000005f0| 2b 69 74 77 69 64 74 68 | 29 20 80 42 20 32 35 35 |+itwidth|) .B 255|
|00000600| 2c 28 79 2b 69 74 77 69 | 64 74 68 29 20 80 42 20 |,(y+itwi|dth) .B |
|00000610| 32 35 35 29 00 20 20 20 | 20 20 20 74 65 6d 70 32 |255).   |   temp2|
|00000620| 3d 6d 61 70 28 78 2c 79 | 29 00 20 20 20 20 20 20 |=map(x,y|).      |
|00000630| 74 65 6d 70 33 3d 6d 61 | 70 28 28 78 2b 69 74 77 |temp3=ma|p((x+itw|
|00000640| 69 64 74 68 29 20 80 42 | 20 32 35 35 2c 79 29 00 |idth) .B| 255,y).|
|00000650| 20 20 20 20 20 20 74 65 | 6d 70 34 3d 6d 61 70 28 |      te|mp4=map(|
|00000660| 78 2c 28 79 2b 69 74 77 | 69 64 74 68 29 20 80 42 |x,(y+itw|idth) .B|
|00000670| 20 32 35 35 29 00 20 20 | 20 20 20 20 80 06 20 72 | 255).  |    .. r|
|00000680| 61 6e 64 6f 6d 00 20 20 | 20 20 20 20 6d 61 70 28 |andom.  |    map(|
|00000690| 78 2b 69 74 77 69 64 74 | 68 2f 32 2c 79 2b 69 74 |x+itwidt|h/2,y+it|
|000006a0| 77 69 64 74 68 2f 32 29 | 3d 28 28 74 65 6d 70 31 |width/2)|=((temp1|
|000006b0| 2b 74 65 6d 70 32 2b 74 | 65 6d 70 33 2b 74 65 6d |+temp2+t|emp3+tem|
|000006c0| 70 34 29 2f 34 29 2b 72 | 61 6e 64 00 20 20 20 20 |p4)/4)+r|and.    |
|000006d0| 20 20 80 06 20 72 61 6e | 64 6f 6d 00 20 20 20 20 |  .. ran|dom.    |
|000006e0| 20 20 6d 61 70 28 78 2b | 69 74 77 69 64 74 68 2f |  map(x+|itwidth/|
|000006f0| 32 2c 79 29 3d 28 28 74 | 65 6d 70 32 2b 74 65 6d |2,y)=((t|emp2+tem|
|00000700| 70 33 29 2f 32 29 2b 72 | 61 6e 64 00 20 20 20 20 |p3)/2)+r|and.    |
|00000710| 20 20 80 06 20 72 61 6e | 64 6f 6d 00 20 20 20 20 |  .. ran|dom.    |
|00000720| 20 20 6d 61 70 28 78 2c | 79 2b 69 74 77 69 64 74 |  map(x,|y+itwidt|
|00000730| 68 2f 32 29 3d 28 28 74 | 65 6d 70 32 2b 74 65 6d |h/2)=((t|emp2+tem|
|00000740| 70 34 29 2f 32 29 2b 72 | 61 6e 64 00 20 20 20 20 |p4)/2)+r|and.    |
|00000750| 20 20 80 06 20 72 61 6e | 64 6f 6d 00 20 20 20 20 |  .. ran|dom.    |
|00000760| 20 20 6d 61 70 28 78 2b | 69 74 77 69 64 74 68 2f |  map(x+|itwidth/|
|00000770| 32 2c 28 79 2b 69 74 77 | 69 64 74 68 29 20 80 42 |2,(y+itw|idth) .B|
|00000780| 20 32 35 35 29 3d 28 28 | 74 65 6d 70 31 2b 74 65 | 255)=((|temp1+te|
|00000790| 6d 70 33 29 2f 32 29 2b | 72 61 6e 64 00 20 20 20 |mp3)/2)+|rand.   |
|000007a0| 20 20 20 80 06 20 72 61 | 6e 64 6f 6d 00 20 20 20 |   .. ra|ndom.   |
|000007b0| 20 20 20 6d 61 70 28 28 | 78 2b 69 74 77 69 64 74 |   map((|x+itwidt|
|000007c0| 68 29 20 80 42 20 32 35 | 35 2c 79 2b 69 74 77 69 |h) .B 25|5,y+itwi|
|000007d0| 64 74 68 2f 32 29 3d 28 | 28 74 65 6d 70 31 2b 74 |dth/2)=(|(temp1+t|
|000007e0| 65 6d 70 34 29 2f 32 29 | 2b 72 61 6e 64 00 20 20 |emp4)/2)|+rand.  |
|000007f0| 20 20 80 17 20 79 00 20 | 20 80 17 20 78 00 80 07 |  .. y. | .. x...|
|00000800| 00 00 2e 72 61 6e 64 6f | 6d 00 20 20 73 65 65 64 |...rando|m.  seed|
|00000810| 31 2e 6c 3d 28 73 65 65 | 64 31 2a 24 32 35 30 37 |1.l=(see|d1*$2507|
|00000820| 31 39 37 32 29 2b 24 31 | 39 30 32 31 39 37 34 00 |1972)+$1|9021974.|
|00000830| 20 20 72 61 6e 64 2e 77 | 20 3d 20 73 65 65 64 31 |  rand.w| = seed1|
|00000840| 00 20 20 72 61 6e 64 20 | 3d 20 28 28 28 72 61 6e |.  rand |= (((ran|
|00000850| 64 20 80 42 20 36 33 29 | 2d 33 31 29 2a 69 74 77 |d .B 63)|-31)*itw|
|00000860| 69 64 74 68 2a 38 29 2f | 36 34 00 80 07 00 00 2e |idth*8)/|64......|
|00000870| 70 6c 6f 74 73 63 61 70 | 65 00 20 20 80 16 20 79 |plotscap|e.  .. y|
|00000880| 20 3d 20 30 20 80 18 20 | 32 35 35 20 80 19 20 69 | = 0 .. |255 .. i|
|00000890| 74 77 69 64 74 68 00 20 | 20 20 20 80 16 20 78 20 |twidth. |   .. x |
|000008a0| 3d 20 30 20 80 18 20 32 | 35 35 20 80 19 20 69 74 |= 0 .. 2|55 .. it|
|000008b0| 77 69 64 74 68 00 20 20 | 20 20 20 20 74 65 6d 70 |width.  |    temp|
|000008c0| 31 3d 6d 61 70 28 28 78 | 2b 69 74 77 69 64 74 68 |1=map((x|+itwidth|
|000008d0| 29 20 80 42 20 32 35 35 | 2c 28 79 2b 69 74 77 69 |) .B 255|,(y+itwi|
|000008e0| 64 74 68 29 20 80 42 20 | 32 35 35 29 00 20 20 20 |dth) .B |255).   |
|000008f0| 20 20 20 74 65 6d 70 32 | 3d 6d 61 70 28 78 2c 79 |   temp2|=map(x,y|
|00000900| 29 00 20 20 20 20 20 20 | 74 65 6d 70 33 3d 6d 61 |).      |temp3=ma|
|00000910| 70 28 28 78 2b 69 74 77 | 69 64 74 68 29 20 80 42 |p((x+itw|idth) .B|
|00000920| 20 32 35 35 2c 79 29 00 | 20 20 20 20 20 20 74 65 | 255,y).|      te|
|00000930| 6d 70 34 3d 6d 61 70 28 | 78 2c 28 79 2b 69 74 77 |mp4=map(|x,(y+itw|
|00000940| 69 64 74 68 29 20 80 42 | 20 32 35 35 29 00 00 20 |idth) .B| 255).. |
|00000950| 20 20 20 20 20 80 0b 20 | 74 65 6d 70 31 20 3c 20 |     .. |temp1 < |
|00000960| 30 00 20 20 20 20 20 20 | 20 20 74 65 6d 70 31 3d |0.      |  temp1=|
|00000970| 30 00 20 20 20 20 20 20 | 80 c0 00 20 20 20 20 20 |0.      |...     |
|00000980| 20 80 0b 20 74 65 6d 70 | 32 20 3c 20 30 00 20 20 | .. temp|2 < 0.  |
|00000990| 20 20 20 20 20 20 74 65 | 6d 70 32 3d 30 00 20 20 |      te|mp2=0.  |
|000009a0| 20 20 20 20 80 c0 00 20 | 20 20 20 20 20 80 0b 20 |    ... |     .. |
|000009b0| 74 65 6d 70 33 20 3c 20 | 30 00 20 20 20 20 20 20 |temp3 < |0.      |
|000009c0| 20 20 74 65 6d 70 33 3d | 30 00 20 20 20 20 20 20 |  temp3=|0.      |
|000009d0| 80 c0 00 20 20 20 20 20 | 20 80 0b 20 74 65 6d 70 |...     | .. temp|
|000009e0| 34 20 3c 20 30 00 20 20 | 20 20 20 20 20 20 74 65 |4 < 0.  |      te|
|000009f0| 6d 70 34 3d 30 00 20 20 | 20 20 20 20 80 c0 00 00 |mp4=0.  |    ....|
|00000a00| 20 20 20 20 20 20 74 65 | 6d 70 79 31 3d 79 2b 69 |      te|mpy1=y+i|
|00000a10| 74 77 69 64 74 68 2d 28 | 74 65 6d 70 31 2f 33 32 |twidth-(|temp1/32|
|00000a20| 29 00 20 20 20 20 20 20 | 74 65 6d 70 79 32 3d 79 |).      |tempy2=y|
|00000a30| 2d 28 74 65 6d 70 32 2f | 33 32 29 00 20 20 20 20 |-(temp2/|32).    |
|00000a40| 20 20 74 65 6d 70 79 33 | 3d 79 2d 28 74 65 6d 70 |  tempy3|=y-(temp|
|00000a50| 33 2f 33 32 29 00 20 20 | 20 20 20 20 74 65 6d 70 |3/32).  |    temp|
|00000a60| 79 34 3d 79 2b 69 74 77 | 69 64 74 68 2d 28 74 65 |y4=y+itw|idth-(te|
|00000a70| 6d 70 34 2f 33 32 29 00 | 20 20 20 20 20 20 74 65 |mp4/32).|      te|
|00000a80| 6d 70 78 31 3d 28 28 28 | 78 2b 69 74 77 69 64 74 |mpx1=(((|x+itwidt|
|00000a90| 68 2d 31 32 38 29 2a 28 | 28 74 65 6d 70 79 31 2f |h-128)*(|(tempy1/|
|00000aa0| 34 29 2b 36 34 29 29 2f | 31 32 38 29 2b 31 36 30 |4)+64))/|128)+160|
|00000ab0| 00 20 20 20 20 20 20 74 | 65 6d 70 78 32 3d 28 28 |.      t|empx2=((|
|00000ac0| 28 78 2d 31 32 38 29 2a | 28 28 74 65 6d 70 79 32 |(x-128)*|((tempy2|
|00000ad0| 2f 34 29 2b 36 34 29 29 | 2f 31 32 38 29 2b 31 36 |/4)+64))|/128)+16|
|00000ae0| 30 00 20 20 20 20 20 20 | 74 65 6d 70 78 33 3d 28 |0.      |tempx3=(|
|00000af0| 28 28 78 2b 69 74 77 69 | 64 74 68 2d 31 32 38 29 |((x+itwi|dth-128)|
|00000b00| 2a 28 28 74 65 6d 70 79 | 33 2f 34 29 2b 36 34 29 |*((tempy|3/4)+64)|
|00000b10| 29 2f 31 32 38 29 2b 31 | 36 30 00 20 20 20 20 20 |)/128)+1|60.     |
|00000b20| 20 74 65 6d 70 78 34 3d | 28 28 28 78 2d 31 32 38 | tempx4=|(((x-128|
|00000b30| 29 2a 28 28 74 65 6d 70 | 79 34 2f 34 29 2b 36 34 |)*((temp|y4/4)+64|
|00000b40| 29 29 2f 31 32 38 29 2b | 31 36 30 00 20 20 20 20 |))/128)+|160.    |
|00000b50| 20 20 74 65 6d 70 79 31 | 3d 28 74 65 6d 70 79 31 |  tempy1|=(tempy1|
|00000b60| 2f 34 29 2b 36 34 00 20 | 20 20 20 20 20 74 65 6d |/4)+64. |     tem|
|00000b70| 70 79 32 3d 28 74 65 6d | 70 79 32 2f 34 29 2b 36 |py2=(tem|py2/4)+6|
|00000b80| 34 00 20 20 20 20 20 20 | 74 65 6d 70 79 33 3d 28 |4.      |tempy3=(|
|00000b90| 74 65 6d 70 79 33 2f 34 | 29 2b 36 34 00 20 20 20 |tempy3/4|)+64.   |
|00000ba0| 20 20 20 74 65 6d 70 79 | 34 3d 28 74 65 6d 70 79 |   tempy|4=(tempy|
|00000bb0| 34 2f 34 29 2b 36 34 00 | 00 20 20 20 20 20 20 80 |4/4)+64.|.      .|
|00000bc0| 0b 20 74 65 6d 70 32 20 | 3c 3d 20 30 20 80 42 20 |. temp2 |<= 0 .B |
|00000bd0| 74 65 6d 70 33 20 3c 3d | 20 30 20 80 42 20 74 65 |temp3 <=| 0 .B te|
|00000be0| 6d 70 34 20 3c 3d 20 30 | 00 20 20 20 20 20 20 20 |mp4 <= 0|.       |
|00000bf0| 20 70 6c 6f 74 63 6f 6c | 20 3d 20 31 00 20 20 20 | plotcol| = 1.   |
|00000c00| 20 20 20 80 22 00 20 20 | 20 20 20 20 20 20 70 6c |   .".  |      pl|
|00000c10| 6f 74 63 6f 6c 20 3d 20 | 28 28 28 74 65 6d 70 33 |otcol = |(((temp3|
|00000c20| 2b 74 65 6d 70 32 2b 74 | 65 6d 70 34 29 2f 33 29 |+temp2+t|emp4)/3)|
|00000c30| 2f 33 33 29 2b 32 00 20 | 20 20 20 20 20 20 20 80 |/33)+2. |       .|
|00000c40| 0b 20 70 6c 6f 74 63 6f | 6c 20 3e 20 33 31 20 80 |. plotco|l > 31 .|
|00000c50| 21 20 70 6c 6f 74 63 6f | 6c 20 3d 33 31 00 20 20 |! plotco|l =31.  |
|00000c60| 20 20 20 20 80 c0 00 00 | 20 20 20 20 20 20 61 2e |    ....|      a.|
|00000c70| 74 72 69 5c 78 30 3d 74 | 65 6d 70 78 32 2c 74 65 |tri\x0=t|empx2,te|
|00000c80| 6d 70 79 32 2c 74 65 6d | 70 78 33 2c 74 65 6d 70 |mpy2,tem|px3,temp|
|00000c90| 79 33 2c 74 65 6d 70 78 | 34 2c 74 65 6d 70 79 34 |y3,tempx|4,tempy4|
|00000ca0| 00 20 20 20 20 20 20 bb | 8b 20 33 2c 61 2c 70 6c |.      .|. 3,a,pl|
|00000cb0| 6f 74 63 6f 6c 00 00 20 | 20 20 20 20 20 80 0b 20 |otcol.. |     .. |
|00000cc0| 74 65 6d 70 31 20 3c 3d | 20 30 20 80 42 20 74 65 |temp1 <=| 0 .B te|
|00000cd0| 6d 70 33 20 3c 3d 20 30 | 20 80 42 20 74 65 6d 70 |mp3 <= 0| .B temp|
|00000ce0| 34 20 3c 3d 20 30 00 20 | 20 20 20 20 20 20 20 70 |4 <= 0. |       p|
|00000cf0| 6c 6f 74 63 6f 6c 20 3d | 20 31 00 20 20 20 20 20 |lotcol =| 1.     |
|00000d00| 20 80 22 00 20 20 20 20 | 20 20 20 20 70 6c 6f 74 | .".    |    plot|
|00000d10| 63 6f 6c 20 3d 20 28 28 | 28 74 65 6d 70 33 2b 74 |col = ((|(temp3+t|
|00000d20| 65 6d 70 31 2b 74 65 6d | 70 34 29 2f 33 29 2f 33 |emp1+tem|p4)/3)/3|
|00000d30| 33 29 2b 32 00 20 20 20 | 20 20 20 20 20 80 0b 20 |3)+2.   |     .. |
|00000d40| 70 6c 6f 74 63 6f 6c 20 | 3e 20 33 31 20 80 21 20 |plotcol |> 31 .! |
|00000d50| 70 6c 6f 74 63 6f 6c 20 | 3d 33 31 00 20 20 20 20 |plotcol |=31.    |
|00000d60| 20 20 80 c0 00 00 20 20 | 20 20 20 20 61 2e 74 72 |  ....  |    a.tr|
|00000d70| 69 5c 78 30 3d 74 65 6d | 70 78 31 2c 74 65 6d 70 |i\x0=tem|px1,temp|
|00000d80| 79 31 2c 74 65 6d 70 78 | 34 2c 74 65 6d 70 79 34 |y1,tempx|4,tempy4|
|00000d90| 2c 74 65 6d 70 78 33 2c | 74 65 6d 70 79 33 00 20 |,tempx3,|tempy3. |
|00000da0| 20 20 20 20 20 bb 8b 20 | 33 2c 61 2c 70 6c 6f 74 |     .. |3,a,plot|
|00000db0| 63 6f 6c 00 20 20 20 20 | 20 80 17 20 78 00 20 20 |col.    | .. x.  |
|00000dc0| 80 17 20 79 00 80 07 00 |                         |.. y....|        |
+--------+-------------------------+-------------------------+--------+--------+